home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xhostaddress.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
730b
|
18 lines
(herald xhostaddress (env tsys (xlib interface)))
(DEFINE (MAKE-XHOSTADDRESS) (CONS 'XHOSTADDRESSP (MAKE-BYTEV 12)))
(DEFINE (XHOSTADDRESS-FAMILY X) (MREF-INTEGER (CHK-XHOSTADDRESSP X) 0))
(DEFINE (XHOSTADDRESS-FAMILY! X Y)
(SET-MREF-INTEGER! (CHK-XHOSTADDRESSP X) 0 Y))
(DEFINE (XHOSTADDRESS-LENGTH X) (MREF-INTEGER (CHK-XHOSTADDRESSP X) 4))
(DEFINE (XHOSTADDRESS-LENGTH! X Y)
(SET-MREF-INTEGER! (CHK-XHOSTADDRESSP X) 4 Y))
(DEFINE (XHOSTADDRESS-ADDRESS X)
((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
(CHK-XHOSTADDRESSP X)
8))
(DEFINE (XHOSTADDRESS-ADDRESS! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
(CHK-XHOSTADDRESSP X)
8
Y))